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CHAPTER 1 



2. 10 PRINT a«<19-4) 

20 PRINT 1*2+2*3+3*4+4*5 
30 PRINT 1+ 1/10 + 1/100 
40 PRINT 10-20+30-40+50-60 



28.6667 


25 




48 




44.3333 


Out of 


DATA in 10 


S 




I 




X! 




6 




6 




Out o-f 


DATA in 20 



8. 10 INPUT "POUNDS, INCHES" ;P,N 

20 PRINT P/N; " POUNDS PER INCH. " 



10. >RUN 

TOTAL PRICE = *0 .89 



12. >PRIHT .05 
. 05 

>PRINT ,005 
5E-03 

>PRIHT 123456789 
1 23456789 

>PR I NT 1 234567890 
1234567890 

>PRINT -.065 

- . 065 

>PRINT 4.62E5 
4620ei0 

>PRINT .086E-3 
8.6E-05 

>PRINT -4?90Ci 

-4 900 1.1 



14. 10 PRINT 3+5+7 



16. 10 READ A,B 

20 PRINT (7*A+10*B)/(2«A*B) 
30 PRINT ( <1/2)*A)/(A-B) 
40 DATA 10,7 

18. 10 INPUT "HOW HANY PIECES DID YOU EAT";P 
20 C = 375*P 
30 M = C/100 
40 PRINT "YOU MUST RUN" ; M; "MILES. " 

20. 10 INPUT "VICTIMS NAME" 5V* 

20 INPUT "INSULTING WORb";W* 

30 PRINT V*;" IS A ";W*;"-HEAD" 

40 PRINT " OR" 

50 PRINT V*;" IS A "; W* 5 "-BREATH" 

60 BOTO 10 



22 10 READ R 

20 PRINT: PRINT 

30 A=3. 141592654)|tR*R 

40 PRINT "AREA OF CIRCLE ="?A 

50 BOTO 10 

60 DATA 5,3,8 



24. 10 C - 3E10 

20 M = 2E11/(C*C) 

30 N=M/ ( . 1 ) 

40 PRINT N5 "HAIRS ARE REQUIRED. 



26. 1 



3 READ A. B. C 



2fe 



PRINT "SEMI PER I METER OF FIRST TRIANGLE " ; C A+B+C::'.--2; "CM. " 
'50 READ A:. E'.j C 

40 PRINT "SEMI PER I METER OF SECOND TRIANGLE " 5 •:: A+B+C::'.--2; "FT, " 

50 DATA 13, 8, 11.- 21. 16, 12 



28. 10 INPUT "SALE PRICE" ;P 

20 INPUT "DISCOUNT RATE";D 

30 D = D/lOO 

40 PRINT "THE ORIGINAL PRICE WAS *"5P/<1-D) 

50 BOTO 10 



1.2 



30. 10 INPUT "I TENS NAME";N» 

20 INPUT "WHAT IS ITS PRICE" 5 P 

30 T=.07*P 

40 PRINT N*;" HAS A TAX OF *"5Tr'AND COSTS *";P+T 

50 eOTO 10 



32. 10 D = 2.6 
20 A 1 = D*D 

30 A2 = 3. 141592654* (D/2)«(D/2) 
40 A3 = A1-A2 
50 PRINT "AREA LEFT ="; A3; "SQUARE CENTIMETERS." 



34. 10 INPUT "HOW MANY NUMBERS" ;N 

20 INPUT "WHAT ARE THE NUMBERS" 5 A, B, C, D, E 

30 V = <A+B+C+D+E)/N 

40 PRINT "AVERAGE IS";V 

50 SOTO 10 

Note: If less than five n-umbers are in the set, O's are used to 
fill in the set 



1.3 



CHAPTER 2 



2. 10 INPUT "3 HAMES";A*,B*.-C* 

20 IF A* > B* AND A* > C* THEN PRINT A* s GOTO 10 
30 IF B* > C* 

THEN PRINT B* 

ELSE PRINT C* 
40 GOTO 10 
50 GOTO 10 



10 INPUT X* 

20 IF X* = "BIBWOW" 

THEN PRINT "!!!!!!" 
ELSE PRINT "??????" 

30 GOTO 10 



10 INPUT X 

20 IF X < -24 OR X > 17 THEN PRINT "NOT BETWEEN" 

30 GOTO 10 



10 INPUT X 

20 IF X > 25 AND X < 75 

THEN PRINT "IN THE INTERVAL" 
ELSE PRINT "NOT IN THE INTERVAL' 

30 GOTO 10 



10, 10 FOR I = 1 TO 3 

20 PRINT "************" 
30 NEXT I 

12, 10 FOR I = 4 TO 84 STEP 10 
20 PRINT I 
30 NEXT I 



14, > PR I NT 143*74 
10582 

>PRINT (53+72+81+76) /4 
70.5 

>X=4:Y=5: PRINT" XCY=";XCY,"Yi:X=";YCX 
XCY= 1024 Yt:X= 625 



16 10 PRINT "*****" 
20 FOR I = 1 TO 6 
30 PRINT " ***" 
40 NEXT I 
50 PRINT "*««**" 



2.1 



18 . Line : <: 1 >< 2C! > ■:, 50 >< 80 > < 1 >< 20 >< 30 >< 60 >< 80 > 

< 1 X 20 >< 30 >< 40 X 70 >< 80 > End 



20. 10 INPUT "HOW OLD ARE YOU ";A 
20 IF A >= 16 

THEN PRINT "YOU ARE OLD ENOUGH TO DRIVE A CAR " 
ELSE PRINT "YOU MUST WAIT" ; I6-A5 "YEARS TO DRIVE" 



22. 



10 FOR I = 1 TO 10 

20 READ N$,A: REM GET NAME , CONTRIBUTION 

30 PRINT : PRINT "DEAR "|N*;"," 

40 PRINT " THANK YOU FOR YOUR GENEROUS CONTRIBUTION" 

50 PRINT "OF"; A; "DOLLARS TO MY ELECTION CAMPAIGN. MAYBE" 

60 PRINT "NEXT YEAR WE WILL HAVE BETTER LUCK!" 

70 PRINT TAB <30) ; "SINCERELY, " 

80 PRINT : PRINT TAB (30) ; "SMILEY R. POLITICO" 

90 PRINT 

100 NEXT I 

110 DATA RICH BR YBURRY, 25000, SWINDLING SCHWABB, 1000 

120 DATA SEMORE FUNDS, 500, KILLER KIDDER, 50 

130 DATA LARS CADET, 150, DR. CRABAPPLE, 675, EVE, 5000 

1 40 DATA GARY BONEHE AD , 1 5 , S I R ROB I N , 768 , ADAM , 2800 



24. 10 FOR I = 1 TO 10 
20 RESTORE 

30 INPUT "WHAT MODEL DID YOU BUY";M 
40 READ D : REM GET A BAD MODEL NUMBER 
50 IF D = "1 THEN PRINT "YOUR CAR IS FINE!":GOTO 80 
60 IF D = M THEN PRINT "YOU GOT A LEMON !": GOTO 80 
70 GOTO 40 : REM 60 CHECK NEXT MODEL NUMBER 
80 NEXT I 
90 DATA 102,780,119,220,189,195,-1 : REM --1 SHOWS END OF DATA 



26 10 FOR X - 5 TO 25 STEP 2 : REM STEPPED 2 FOR ODDS ONLY 
20 IF XC3 > 500 AND XC2 + 3*X + 2 < 700 THEN PRINT X 
30 NEXT X 



2.2 



28. 



1 


REM 


2 


REM 




REM 


4 


REM 


5 


REM 


6 


REM 


7 


REM 



CI = PRICE PER SHARE WHEN PURCHASED 

C2 = PRICE PER SHARE WHEN SOLD 

Tl = TOTAL VALUE OF STOCK PURCHASED 

T2 = TOTAL VALUE OF STOCK SOLD 

P = PROFIT 

N = NUMBER OF SHARES OF STOCK 



8 REM 

10 READ A*,N,C1,C2 

20 T1=N*C1 

30 T2=N*C2 

40 P=T2-T1 

50 PRINT "FOR ";A*; 

60 IF SBN<P)=1 

THEN PRINT "THE PROFIT WAS *";P 
ELSE PRINT "THE LOSS WAS *"5"P 

70 BOTO 10 



80 END 
90 REM 
1 00 
110 



DATA SECTION 
DATA "C.T. ",200,85.58,70.82 
DATA "A. A.S. ",400,35.60,47.32 



30. 



10 INPUT "THE AMOUNT OF THE LOAN" 5 L 
20 INPUT "LENGTH OF THE LOAN IN VEARS";V 
30 I = .02 : REM INTEREST RATE PER MONTH 
40 M = V * 12 

50 p = ';:i*l:;' .••■■ <<i-<i + i>L<.-\'\y>> 

60 PRINT USING "THE MONTHLV PAVMENT IS tt„##";P 

70 PRINT USING "TOTAL AMOUNT PAID WILL BE ###-##' 



5 P*M 



2.3 



CHAPTER 3 



10 FOR I = 1 TO 3 
20 S = S + RND(0> 
30 NEXT I 
40 PRINT S 



10 N = RND(8) - 4 

20 INPUT "GUESS A NUHBER FROM ~3 TO 4";e 

30 IF N = e 

THEN PRINT "CORRECT" 

ELSE PRINT "INCORRECT IT WAS ";N 
40 GOTO 10 



10 INPUT N 
20 FOR I = 
30 S 
40 NEXT I 
50 PRINT "SUM 
60 PRINT "N/2 
70 GOTO 10 



1 TO N 
S + RND(O) 



IS 
IS 



";S 
"!N/2 



TO 4 
■1234567890"; 



10 FOR I = 1 

20 PRINT 

30 NEXT I 

40 PRINT: PRINT 

50 PRINT "*";TAB<8);"9";TAB<14) 

60 PRINT TAB<28) ; "! ";TAB(32) ; ") 



TAB (20) 



TAB(39) 



10, 



10 

20 

30 

40 

50 

60 

70 

80 

90 

1 00 

110 

120 

130 

140 

150 

1 60 

200 

210 

220 

230 

240 

250 

260 



CLS 
REM 
FOR X 



DRAW 



BOX 
TO 84 



SET<X, 17) 



SET (X, 33) 



SET (84, Y) 



NEXT X 

FOR Y = 17 TO 
SET(42,Y) : 
NEXT Y 
REM 
REM PRINT MESSAGE 
PRINTS 470, "TODAY ONLY ! " ,- 
538, "UNCLE BILL'S"; 
602, "WHAMBURGERS"; 
670, "ONLY *0.59"; 
1 TO 100 : NEXT I 



PRINT® 

PRINT® 

PRINTS 

FOR I 

REM 

REM ERASE 

PRINTS 470, " 

PRINTS 538, " 

PRINTS 602, " 

PRINTS 670, " 

FOR I = 1 TO 

BOTO 100 



REM DELAY 



MESSAGE (MAKE APPEAR TO FLASH) 



100 



NEXT I 



REM 



DELAY LOOP 



3.1 



12. 10 FCJR I = 1 TO 10 

20 PRINT RNDdS) + 7; 

30 NEXT I : PRINT 



14A. >RUN 

6 * 

YOU ARE WRONB. TRY ABAIN. 
6 * 3 =? 18 
CORRECT 



14B. 10 CLS : PRINT;i)384, 
20 A = RND(IO) 
30 B = RND(IO) 

40 PRINT TAB(12) ; A; "*";B; "="; 
50 INPUT C 

60 IF C = A * B THEN 90 
65 W = W + 1 

67 IF W = 3 THEN PRINT "LEARN THE MULTIPLICATION TABLE ".-END 
70 PRINT "YOU ARE WRONG. TRY AGAIN." 
85 GOTO 40 
90 PRINT TAB ( 12) ; "CORRECT" 

14C. 5 FOR I ^ I TO 5 

10 CLE3: PRINT;5)384„ 

15 W = : REM RESET TO GIVE THREE CHANCES FOR EACH QUEST I DM 

20 A = RND(IO) 

30 B = RND(IO) 

40 PRINT TAB(12) ;A5 "*";B; "-"; 

50 INPUT C 

60 IF C = A « B THEN 90 

65 W = W + 1 

67 IF W = 3 THEN PRINT "LEARN THE MULTIPLICATION TABLE": END 

70 PRINT "YOU ARE WRONG. TRY AGAIN, " 

75 F = 1 : REM 1 WILL INDICATE AN INCORRECT ANSWER WAS GIVEN 

80 GOTO 40 

90 PRINT TAB ( 12) ; "CORRECT" 

92 R = R + 1 

95 FOR J = 1 TO 300 : NEXT : REM TIME DELAY 

100 NEXT I 

110 IF F <> 1 THEN PRINT "NICE GOING, HOTSHOT" 



16. :10 INPUT "INTEGER > 1 PLEASE" ;H 
2g FOR >:; = 2 TO N-1 

30 IF H .■■ K = INTCN y ;0 THEN 69 
40 HEKT y. 

50 PR: I NT "THAT INTEGER IS PRIME." : END 
60 PRINT "THAT INTEGER IS NOT PRIME." 



3.2 



18. 10 INPUT "WOULD YOU LIKE TO 60 FIRST " | A* 
20 IF A$ = "NO" THEN 70 

30 INPUT "INPUT A NUMBER FROM 3 - 12";N 

40 IF N < 3 OR N > 12 THEN PRINT "NOT IN RANGE OF 3-12"!80T0 30 
50 S = S + N 5 PRINT "SUM IS NOW ";S 
60 IF S > 100 THEN PRINT "YOU WIN!!" : END 
70 C = RND(IO) + 2 
80 PRINT "MY PICK IS ";C 

90 S = S + C 5 PRINT "THE SUM IS NOW ";S 
100 IF S > 100 THEN PRINT "I WIN!!!" : END 
110 GOTO 30 



20.10 INPUT "A POSITIVE INTEGER, PLEASE";N 

20 IF N <> INT<N) THEN PRINT "YOUR NUMBER WAS NOT AN INTEGER" 

GOTO 10 
30 FOR I = 1 TO N 

40 IF N/I = INT(N/I) THEN PRINT I; 
50 NEXT I 



22A 10 P'OR I = 1 TO 20 

■ 20 R = RHDCiei? - 1 
30 PRINT R; 

40 l-IEXT I 

22B 10 POR I = 1 TO 12 

■ 20 R = RND<25) - 1 
30 PRINT R; 

40 NEXT I 

50 FOR I = 1 TO 8 

60 R = RND<76) + 24 

70 PRINT R; 

80 NEXT I 



24. 10 SET (64,17): REM THIS IS THE TOP POINT 
20 FOR I = 18 TO 30 

30 SET( (81-1) , I) 5 REM THIS DRAWS THE LEFT SIDE 
40 SET( (47+1) , I) ; REM THIS DRAWS THE RIGHT SIDE 
50 NEXT I 

55 REM THIS IS THE FINAL UNDERLINE 
60 FOR J = 1 TO 29 
70 SET( (49+J) ,31) 
80 NEXT J 



3.3 



26A. 



5 CLS 

10 FOR X = 3 TO 125 

20 SET(X,3) s SET (X, 45): REM DRAWS OUTSIDE HORIZONTALS 

30 NEXT X 

40 FOR X = 55 TO 73 

50 SET(X,18) : SET(X,30): REM DRAWS INSIDE HORIZONTALS 

60 NEXT X 

70 FOR Y = 18 TO 30 

80 SET (55, Y) : SET(73,Y)s REM DRAWS INSIDE VERTICALS 

90 NEXT Y 

100 FOR Y = 3 TO 45 

110 SET(3,Y) ! SET ( 125, Y): REM DRAWS OUTSIDE VERTCALS 

120 NEXT Y 

130 FOR I = 1 TO 10 

140 XI = RND<128)-1 : Yl = RND(48)-1 

150 SET<X1,Y1) 

160 NEXT I 



26B. 5 CLS 

10 FOR X = 3 TO 125 

20 SET<X,3) ! SET (X, 45): REM DRAWS OUTSIDE HORIZONTALS 

30 NEXT X 

40 FOR X = 55 TO 73 

50 SET<X,18) : SET (X, 30): REM DRAWS INSIDE HORIZONTALS 

60 NEXT X 

70 FOR Y = 18 TO 30 

80 SET (55, Y) : SET (73, Y): REM DRAWS INSIDE VERTICALS 

90 NEXT Y 

100 FOR Y = 3 TO 45 

110 SET(3,Y) : SET ( 125, Y): REM DRAWS OUTSIDE VERTCALS 

120 NEXT Y 

130 FOR I = 1 TO 10 

140 XI = RND(128)-1 : Yl = RND(48)-1 

150 SET(X1,Y1) 

155 IF XI >54 AND XI < 74 AND Yl > 17 AND Yl < 31 

THEN S = S + 10 

ELSE IF XI > 2 AND XI < 126 AND Yl > 2 AND Yl < 46 
THEN S = S + 4 
ELSE S = S - 1 
160 NEXT I 

165 FOR I = 1 TO 1000 : NEXT I : REM THIS IS A DELAY 
167 PRINT.i)960, " " 
170 PRINTS 960, "SCORE IS";S; 



3.4 



28 



10 

20 
30 
40 
50 
60 
70 
80 



CLS 

FOR X = TO 127 : SET (X, 41) : NEXT 

XI = RND(128)-1 : Yl = RND<40)-1 

X2 = RND(128)-1 : Y2 = RND(40)-1 

SET(X1,Y1) : SET(X2,Y2) 

FOR I = 1 TO 10 

PRINTS 896, "COORDINATE" 



REM BORDER 



IF POINT(X,Y) = ~1 THEN 



: INPUT X,Y 
RESET(X,Y) : 



H = H + 1 



PRINTS) 896, "A HIT! 
90 SET(X,Y) :FOR J = 1 TO 500: NEXT J :RESET(X,Y): REM SHOW SHOT 
100 IF H = 2 THEN 140 
110 PRINT® 896, " 
120 NEXT I 

130 PRINT "YOU FAILED TO GET THEM 
140 PRINT "BRILLIANT WORK YOU GOT 



REM CLEAR OLD GUESS 



YOU TURKEY ! ' 
THEM BOTH ! " 



END 



30, 



32 



10 


SET(15, 18) 






20 


FOR Y = 20 TO 24 






30 


SET(15,Y) 






40 


NEXT Y 






10 


CLS 






20 


INPUT "A,B,R"; A,B,R 






30 


FOR X = A - R TO A + R 






40 


Yl = INT(B + SQR(R[:2 - 


(X-A)C2) + 


.5) 


50 


Y2 = INT(B - SQR(RC2 - 


(X-A)C2) + 


.5) 


60 


SET(X,Y1) : SET (X,Y2) 






70 


NEXT X 







3.5 



CHAPTER 4 



>RUN 



READY 



.:>50 
>RUN 



5 DIM L*(15) 

10 FOR I = 1 TO 15 

20 READ L*(I) 

30 NEXT I 

40 FOR I = 15 TO 1 STEP -1 

50 PRINT L*<I) ; 

60 NEXT I 

100 DATA P,U,0,R,e,S,D,R,A,W,K,C,A,B,A 

10 DIM A* (11,. 3) 

20 FOR I = 1 TO 11 

30 FOR J = 1 TO 3 

40 READ A*<I,J) 

50 PRINT A*(I, J) ; 

60 NEXT J 

70 PRINT " "; 

80 NEXT I 

90 PRINT: PRINT 

100 FOR J = 1 TO 3 

110 FOR I = 1 TO 11 

120 PRINT A*<I, J) ; 

130 NEXT I 

135 PRINT " "; 

140 NEXT J 

150 PRINT 

200 DATA A,L,0,T,0,F,T,R,0,U,A 

210 DATA L,E,W,H,A,T, I,S,T,H,E 

220 DATA M,A,T,T,E,R,W, I,T,H,M 



10 FOR A = 3 TO 5 

20 FOR B = 1 TO 4 

30 IF A * B <= 10 THEN 50 

40 PRINT A,B 

50 NEXT B 

60 NEXT A 



10. >RUN 

B4= 1 BUT B(4)= 86 

' 14 125 HI 

4.1 



12 



10 

20 

30 

40 

50 

60 

70 

80 

90 

1 00 

110 

120 

130 

140 

1 50 

160 

170 

1 80 



1 TO 5 

N* ( X ) , A* ( X ) , T* ( X ) , S* ( X ) 



FOR X = 

READ N* ( X ) , A* ( X ) , T* ( X ) , S* ( X ) , Z* ( X ) 

NEXT X 

INPUT "NAME"§N* 

FOR X = 1 TO 5 

IF N*(X) = N* THEN 100 

NEXT X 

PRINT "PERSON NOT FOUND." 

BOTO 40 
PRINT N*(X) 
PRINT A*(X) 

PRINT T*(X) ," ", ";S*(X) p " ";Z*(X) 
BOTO 40 

DATA DON MI KAN, 42 PENNSYLVANIA AVE. , WASHINGTON, DC, 11114 
DATA LESTER WATERS, PORTA NIBRA,WEST BERLIN, 6N, 00000 
DATA ROB LYNCH, DRUMTHWACKETT, PRINCETON, NEW JERSEY, 08540 
DATA ELI HUROWITZ, SMALL ST,,TERRE HAUTE, INDIANA, 32226 
DATA BRUCE PRESLEY, OLD LOWER, WESTHAMPTON, NY, 01234 



14 



10 
20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

200 

210 

220 

230 

300 



DIM I*(3,5) 
FOR A = 1 TO 3 

FOR I = 1 TO 5 

READ I* (A, I) 

NEXT I 

NEXT A 

INPUT "WHAT ARE YOU LOOKINB FOR " ; A* 

FOR A = 1 TO 3 

FOR I = 1 TO 5 

IF I* (A, I) = A* THEN 220 

NEXT I 



SORRY, WE DON^-T HAVE " p A* 

IN AISLE #";A;" ITEM #"!l 



NEXT A 

PRINT" rM 

BOTO 70 

PRINT"YOU WILL FIND ";A*;" 

BOTO 70 

DATA PEANUTS , KETCHUP , SALT , CHERR I ES , CEREAL 
310 DATA BREAD, BUTTER, MILK, SUB AR, CHEESE 
320 DATA BEEF, CHICKEN, LAMB, HAM, PORK 



16 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

I %->Q 

140 

150 



FOR X = 1 TO 5 

PRINT "STUDENT #";X; 

INPUT N*(X) 

INPUT "ENTER FOUR BRADES: 

A(X) = (Bl (X) + B2(X) + G 
NEXT X 

PRINT "NAME"! TAB (15) ; "1"; TAB (20) ; "2"; 
PRINT TAB (25); "3"; TAB (30); "4"; TAB (36) 



";B1 (X) ,B2(X) ,B3(X) ,B4(X) 
(X) + B4(X) )/4 



"AVE. 



FOR 



X = 1 

PRINT 

PRINT 

A = A 
NEXT X 

PRINT TAB (35) ; " — 
PRINT TAB(34) jA/S 



TO 5 

N*(X);TAB(13);B1 (X) ; TAB (18) ;B2(X) ; 

TAB (23) ;B3(X) ; TAB (28) ; B4 (X ) ; TAB (34) ;A(X) 

+ A(X) : REM RUNNINB SUM OF STUDENTS AVERABES 



4.2 



18. 10 FOR I = 1 TO 6 

20 READ T*<I) : REM 

30 NEXT I 

40 FOR I = 1 TO 5 

50 READ B*(I) : REM 



POSSIBLE TOPS 



POSSIBLE BOTTOMS 



READ B*(I) 
60 NEXT I 
70 FOR T = 1 TO 6 
80 FOR B = 1 TO 5 

90 PRINT T*(T);" WITH ";B*(B) 
100 NEXT B 
110 NEXT T 

200 DATA BLUE SHIRT, PINK SHIRT, 0RAN6E SHIRT, BLACK SHIRT 
210 DATA YELLOW SWEATER, GREEN SWEATER 
220 DATA RED SKIRT, 6REEN SKIRT, PURPLE SKIRT 
230 DATA WHITE PANTS, ELECTRIC PURPLE PANTS 



20a. 



>RUN 
O 
1 



4 
5 
7 
8 
9 
READY 



b. 



>RUN 
SUSAN 
ROB 
MARY 

KIM 

ELI 

FAZIOLI 

LESTER 

FRENCH 

DON 

READY 



22. 1 REM 

2 REM 

3 REM D2 = 
10 DIM P<12) 



ARRAY P HOLDS NUMBER OF TIMES EACH ROLL OCCURS 
Dl = DIE #1 
DIE #2 



1 TO 1000 

RND<6) 

RND(6) 

+ D2) = P(D1 



20 FOR I 

30 Dl 

40 D2 

50 P(D1 + D2) = P(D1 + D2) + 1 

60 NEXT I 

70 PRINT "POINT TOTAL" , "TIMES APPEARING" 

80 FOR I = 2 TO 12 

90 PRINT I,P<I) 

100 NEXT I 



4.3 



24. 10 DIM A*(8,8) 

20 REM SET UP THE RANDOM BOARD 
30 FOR R = 1 TO & 
40 FOR C = 1 TO 8 
50 IF RND<2) = 1 

THEN A*(R,C) = "X" 
ELSE A*(R,C) = "0" 
60 NEXT C 
70 NEXT R 

80 REM DISPLAY BOARD 
90 CLS 

100 PRINT TAB(11);"1 2 3 4 5 6 7 8" 
110 FOR R = 1 TO 8 
120 PRINT TAB (7) ;R; 
130 FOR C = 1 TO 8 
140 PRINT " ";A*(R,C); 
150 NEXT C 
160 PRINT 
170 NEXT R 

180 INPUT "ROW, COLUMN" ;R,C 

190 REM FIND OUT WHAT IS AT A*<R,C) AND SET C* TO ITS REVERSE 
200 T* = A*(R,C) 
210 IF T$ = "X" 

THEN C* = "0" 

ELSE C* = "X" 
220 REM NOW SET EVERYTHING IN COLUMN C TO C* 
230 FOR V = 1 TO 8 
240 A*<V,C) = C$ 
250 NEXT V 

260 REM NOW SET EVERYTHING IN ROW R TO C* 
270 FOR K = 1 TO 8 
280 A*(R,K) = C* 
290 NEXT K 
300 eOTO 80 

26. 5 CLS 

10 DIM N(IO) 

20 FOR T = 1 TO 200 

30 X = RNDdO) : REM BET NUMBERS 

40 IF N(X) < 40 THEN N(X) = N(X) + 1 : REM MAKE SURE NO OVFL 

50 NEXT T 

60 REM 

100 REM DO BAR CHART 

110 FOR I = 1 TO 10 

120 FOR P = N(I) TO 40 

130 IF p = 40 THEN 150 : REM DON'T PLOT ON 40 

140 SET (I * 10, P) : SET ( I * 10 + 1,P) 

150 NEXT P 

160 NEXT I 

170 REM 

200 REM DRAW BASE 

205 FOR X = TO 127 

210 SET(X,40) 

220 NEXT X 

230 REM LABEL BRAPH 

240 FOR I = 10 TO 1 STEP -1 

250 PRINT® 896,TAB (5*1-1); I 

. . 260 NEXT I 

4.4 



CHAPTERS 



RUN 

< 1 >< 20 >< 30 X 40 X 50 X 60 >< 40 >< 50 >< 60 X 40 X 50 X 60 X 70 > 20 44 

< 80 X 30 X 40 X 50 X 60 X 40 X 50 X 60 X 40 X 50 X 60 X 70 > 1 364 2732 

< 80 X 30 X 40 X 50 X 60 X 40 X 50 X 60 X 40 X 50 X 60 X 70 > 87380 1 74764 
<80X90X 100> 



a) In its current state, this program will continously print the 

sum of one, two , three. Line 30 should be changed as follows: 

30 GOTO 10 
This allows new data to be read. 

b) This program will print "IS LESS THAN 5" when X is in fact 
greater than five. Line 20 may be corrected as follows: 

20 IF X<=5 THEN 30 
Line 50 should be changed to read: 

50 PRINT X;"IS LESS THAN OR EQUAL TO FIVE" 

c) Line 40 of this program has no effect. Either way, program 
control is transferred to line 50. The line may be corrected as 

follows : 

40 IF Y>1 THEN 60 



The problem lies in the routine that attempts to switch the two 
values referenced by the variables "A" and "B" (lines 30 and 40) . 
At line 30, "A" assumes the value of "B", and the previous contents 
of "A" are lost. In line 40, "B" takes on the value of "A", so 
that both "A" and "B" now contain the original value of "B" . To 
solve this problem a dummy variable such as "D" must be introduced. 

30 D=A : A=B 
4!3 B=D 

Thus the original value of "A" is not lost. 



5.1 



a) 10 REM THIS PROGRAM DECIDES WHICH MOVIE WE WILL SEE 
20 RANDOM 
30 R=RND(20)+5 
40 X=l 

50 FOR L=l TO R 
60 X=X*-1 
70 IF L=R 

THEN PRINT "WE WILL SEE "; 

ELSE PRINT 
80 IF X>0 

THEN PRINT "ANNIE" 

ELSE PRINT "POLTERGEIST" 
90 NEXT L 
100 END 



b) 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 



DIM JdO, 10) 
FOR X=0 TO 9 

PRINT TAB(X«4+5);X+l5 
NEXT X 
PRINT 
FOR X=0 TO 8 

PRINT TAB(X«4+6);" — "; 
NEXT X 

PRINT TAB(42);" — " 
FOR X=l TO 10 



FOR Y=l 



TO 10 

J(X,Y)=X+Y 

IF F=0 THEN PRINT X;":"; 

PRINT TAB(F*4+5);J(X,Y); 

F=F+1 

IF F=10 THEN PRINT: F=0 



NEXT 
NEXT X 
END 



READY 



5.2 



CHAPTERS 



10 PRINT "NUMBER", "SQUARE ROOT' 
20 FOR X = 121 TO 144 
30 PRINT X,SQR<X) 
40 NEXT X 



10 INPUT N 

20 IF N = THEN PRINT "0" : END 

30 PRINT ABS (N)/N 



10 INPUT N 

20 PRINT SQR(NC2) 



10 INPUT A 

20 Al = A/ 360 

30 A2 = A * 3.1415926535/180 

40 PRINT A ; " DEBREES= " ; A 1 ; " RE VS= " ; A2 ; " RAD I ANS " 



10. 10 PRINT "ANGLE" ; TAB (7) ; "SINE"; TAB (19) ; "COSINE"; TAB (28) ; 

"SUM OF SQUARES" 
20 FOR X = TO 180 STEP 10 
30 A = X * 3.141592653/180 
40 PRINT X;TAB(6) ;SIN(A) ;TAB(19) ;COS(A) ;TAB(33) ;SIN(A) C2H 

COS(A) C2 
50 NEXT X 



12. 10 DEF FNF(X) = 20 * SQR(ABS(X)) - 10 * SBN ( X ) + 5*INT(X) 
20 INPUT "WHAT IS THE NUMBER" ;N 
30 PRINT "F(N) = ";FNF(N) 
40 PRINT "F(F(N)) = " ; FNF (FNF (N) ) 



14. 10 PRINT " X";TAB(7) ; "LOB(X) ";TAB(24) ; "lOCX" 
20 FOR X = 1 TO 15 

30 PRINT X;TAB(5) ;L0B(X)/L0B(10) ;TAB(22) ; lOCX 
40 NEXT X 



10 FOR X = 50 TO 60 
20 PRINT SQR(X) 
30 NEXT X 



10 INPUT N 

20 PRINT "SQR(";N;") ="; SQR(N) 

30 PRINT "SBN(";N;") ="5 SBN(N) 

40 PRINT "LOB(";N;") ="; LOB(N) 

50 PRINT "SIN(";N;") = ";SIN(N) 



6.1 



10 


DEF 


20 


DEF 


30 


DEF 


40 


FOR 


50 


1 


60 


NEX 



20. 10 DEF FNA(X) = X*X + 3*X +2 

FNB(X) = LOB(X*X+l) - X 
FNC(X) = ATN(SIN(X)) 
X = -10 TO 10 
PRINT FIMA(X),FNB(X) ,FNC<X) 
X 



22. a. 10 PRINT ■■ X";TAB(7>;"EXP(X)"iiTAB(25)5"L0e(EXP(X)) 
20 FOR X = -5 TO 10 

30 PRINT X;TAB(5);EXP(X);TAB(28);L0e(EXP(X) ) 
40 NEXT 



b. 10 PRINT " X";TAB<7); "L0e(X)"iiTAB(25);"EXP<L0e(X) ) 

20 FOR X = 1 TO 151 STEP 10 

30 PRINT X? TAB (5) ; LOG (X); TAB (26); EXP (LOB <X)) 

40 NEXT X 



24. 10 P = 0.50 : REM INITIAL INVESTMENT 

20 P = P * EXP (.08 * 10) ! REM FIRST TEN YEARS 

30 FOR X = 11 TO 50 : REM THE 1 1 ' TH TO 50 'TH YEAR 

40 p = p - .05 5 RE|v, jHE NICKEL WITHDRAWN 

50 p = p * EXP (.08 * 1) 

60 NEXT X 

70 PRINT "AFTER 50 YEARS DENNIS HAS *";P 



26A. 10 PI = 3.1415926535 

20 DEF FNS(C) = ATN(C/SQR(1 - C*C) ) : REM ARCSINE 

30 INPUT "SIDES 1 AND 2", -81,82 

40 INPUT "INCLUDED ANGLE"; A3 

50 A3 = A3 * PI /ISO : REM CONVERT TO RADIANS 

60 S3 = SQR(S1*S1 +S2*S2 -2*S1*S2*C0S (A3) ) : REM LAW OF COSINES 

7U K = SIN (A3) / S3 : REM CONSTANT FOR USE OF LAW OF SINES 

80 A2 = FNS(K * S2) : REM LAW OF SINES 

90 Al = FNS(K * SI) 

100 Al = Al * 180 / PI : REM CONVERT TO DEGREES 

110 A2 = A2 * 180 / PI 

120 A3 = A3 * 180 / PI 

130 PRINT "SIDE", "ANGLE" 

140 PRINT 81, Al 

150 PRINT 82, A2 

160 PRINT S3, A3 



6.2 



26B. iQ PI ^ 3.1415926535 

20 INPUT "ANBLES 1 AND 2"!|A1,A2 

30 INPUT "SIDE" 5 S 

40 INPUT "IS THAT THE INCLUDED SIDE"; A* 

50 IF A* = "Y" THEN S3 = S s BOTO 100 

60 SI = S ! REM NAME THE SIDES PROPERLY 

70 INPUT "ADJACENT TO WHICH ANGLE"; SO 

80 REM SET UP THE ANBLES FOR PROPER CALCULATIONS 

90 IF SO = 1 THEN SO = Al 5 Al = A2 : A2 = SO 

100 A3 = 180 - Al ~ A2 s REM GET THIRD ANGLE 

110 Al = Al * PI / 180 ! REM CONVERT TO RADIANS 

120 A2 = A2 * PI / 180 

130 A3 = A3 « PI / 180 

140 REM USE LAW OF SINES FOR CALCULATION OF S2 AND S3 

150 IF S3 = THEN K = SI / SIN<A1) 

!S2 = K * SIN(A2) 

!S3 = K * SIN (A3) 

sGOTO ISO 
160 K: = SIN < A3) / S3 

170 SI = SIN(Al) / K s S2 = SIN(A2) / K 
180 Al = Al * ISO / PI 
190 A2 = A2 « 180 / PI 
200 A3 = A3 * 180 / PI 
210 PRINT "SIDE", "ANGLE" 
220 PRINT Sl.Al 
230 PRINT S2,A2 
240 PRINT S3, A3 

26C. 10 PI = 3,1415926535 

20 DEF FNC<X) = ATN<SQR(1 - X*X) / X) s REM ARCCOSINE 

30 INPUT "3 SIDES"; SI, S2, S3 

40 REM USE LAW OF COSINES TO DEDUCE ANGLES 

50 Al = (S23KS2 + S3*S3 - S1*S1) / 2 / S2 / S3 

60 A2 = <S1*S1 + S3*S3 ~S2«S2) / 2 / SI / S3 

70 A3 = (S1*S1 + S2*S2 - S3*S3) / 2 / SI / S3 

75 REM MAKE SURE AN ANGLE'S COSINE IS NOT 

IF IT IS SET THE ANGLE TO PI/2 
SO IF Al = 

THEN Al = PI/2 

ELSE Al = FNC(Al) 
90 IF A2 = 

THEN A2 = PI / 2 

ELSE A2 = FNC(A2) 
100 IF A3 = 

THEN A3 = PI / 2 

ELSE A3 = FNC(A3) 
110 REM CHECK IF ANBLES ARE LESS THAN ZERO AND ADJUST THEM 
120 IF Al < THEN Al = Al + PI 
130 IF A2 < THEN A2 = A2 + PI 
140 IF A3 < THEN A3 = A3 + PI 
150 REM NOW CONVERT TO DEGREES 
160 Al = Al * 180 / PI 
170 A2 = A2 # 180 / PI 
180 A3 = A3 « 180 / PI 
190 PRINT "SIDE", "ANBLE" 
200 PRINT S1,A1 
210 PRINT S2,A2 
220 PRINT S3, A3 6.3 



28a. 10 REM XO,YO = Origin of graph on screen 
20 REM X,Y = Function variables 
30 REM XljYl = Shifted/Scaled X ?< Y values 
40 REM T = Loop variable for setting up axes 
50 REM 

60 XO = 64 s YO = 25 s REM Origin (0,0) 
70 REM 

SO REM Draw and label X-a;;is 

90 CLS : FOR T = TO 127 : SET(T,YO) : NEXT T 
100 FOR T = 4 TO 124 STEP 20 
110 SET(T,Y0--1) ! SET<T,Y0+1) 

120 READ N s REM Read a label from DATA statement 
130 IF N > 

THEN F'RINT:3(574 + INT(T/2)), N; 
ELSE PRINTS (446 + INT<T/2)), N; 
140 NEXT T 
150 REM 

160 REM Draw and label Y-a;;is 
170 FOR T = 3 TO 47 : SET(XO,T) s NEXT T 
ISO FOR T = 5 TO 45 STEP 10 
190 SET(X0-1,T) : SET(X0+1,T) 
200 NEXT T 
210 PRINT ;S94,"1"5 3993 , " -- 1 " ; :5)349 , " . 5 " ; 

3737 , " - . 5 " 5 329 , " Y-ax is"; 
220 REM 

230 REM Plot function Y = 1/X 
240 FOR X = -12 TO 12 STEP 0.25 
250 Y = SSN(X) 
260 REM 

270 REM Shi ft /Scale X ?< Y to display screen 
280 XI = XO + X * (120/24) 
290 Yl = YO - Y * (40/2) 
300 IF (XI > AND Yl > 0) 

THEN IF (XI < 128 AND Yl < 48) 
THEN SET(X1,Y1) 
310 NEXT X 
320 DATA -12, -8, -4, 0, 4, 8, 12 



For parts B and C change the following lines 
B. 250 Y = ATN(X) 



C. 



210 PRINT ;i)94,"12"5 3993, "-12" ; 3349," 6"; 

3737 , " -6 " ; 329 , " V-ax is"; 
250 Y = INT(X) 
290 Yl = YO - Y * (25/12) 



6.4 



CHAPTER? 



6a. 



6b. 



10 A*="YOU HAVE WON A " 

20 R=RND(4) 

30 ON R SOTO 40,60,80,100 

40 PRINT A*; "BALL" 

50 END 

60 PRINT A$ 5 "BALLOON" 

70 END 

80 PRINT A* 5 "TOY CAR" 

90 END 

100 PRINT A«; "CANDY BAR" 

110 END 



READY 

>RUN 

ROW, ROW, ROW, YOUR BOAT 

BENTLY DOWN THE STREAM 

MERRILY, MERRILY, MERRILY, MERRILY, 

LIFE IS BUT A DREAM 

READY 



>RUN 

< 1 X 20 >< 30 >< 60 >< 70 >< 80 >< 40 X 50 X 1 X 20 X 30 X 60 X 70 X 80 X 40 X 50 : 

< 1 X 20 X 30 X 60 X 80 X 40 X 50 X 10X20 X 95 X 1 00 > 
READY 



>RUN 

T= 2 P= 20 

READY 



7.1 



12, 



10 


X=RND(11)~6 : Y=RND ( 1 1 ) 


-6 


20 


FOR 1=1 TO 3 






30 


INPUT"TWO INTEGERS 


BETWE 


40 


GOSUB 140 






50 


IF D=0 THEN END 






60 


NEXT I 






70 


X1 = X!! PRINT "X = ";X 






80 


FOR J=l TO 2 






90 


INPUT "Y1";Y1 






100 


GOSUB 140 






110 


IF D=0 THEN END 






120 


NEXT J 






130 


PRINT "YOU FAILED. 


Y= 


";Y 


135 


END 






140 


D=SQR((X-X1) C2+(Y-^ 


/I) c: 


2) 


150 


PRINT D 






160 


IF 0=0 THEN PRINT ' 


"CORRECT" 


170 


RETURN 







AND 5, INCLUSIVE"; XI, Yl 



10. 10 READ A,B,C 
20 BOSUB 100 
30 PRINT "AREA ="A1 
40 GOTO 10 
50 REM 

100 REM SUBROUTINE TO CALCULATE AREA 
no S = (A + B + C)/2 

120 Al = SQR(S * (S - A) * (S - B) * (S - C) ) 
130 RETURN 
140 REM 

200 DATA 5,8, 12 
210 DATA 8, 13,20 
220 DATA 3,4,5 



10 ON ERROR GOTO 100 

20 INPUT "A,B,C";A,B,C 

30 D=SQR(B*B-4*A*C) 

40 R1=(-B+D)/2*A ! R2=(-B-D)/2*A 

50 PRINT "THE ROOTS ARE ";Rli!"AND " ; R2 

60 GOTO 20 

100 IF ERR/2+l=5 

THEN PRINT "IMAGINARY ROOTS ENCOUNTERED", 
RESUME 20 
110 PRINT "UNEXPECTED ERROR ENCOUNTERED" 
115 RESUME 20 
120 END 



7.2 



CHAPTERS 



1 REM A*,B*,Cf. = INPUT STRINGS 

2 REM S = SUM OF ASC'S 

3 REM 

4 REM 

10 INPUT "THREE SEPARATE LETTERS" 5 A*, B*, C* 

20 S=ASC ( A* ) +ASC ( B* ) +ASC ( C* ) 

30 I=INT(S/3) ! REM AVERAGES THE ASCII VALUES 

40 PRINT CHR*(I) 

50 END 



1 REM A*,B* = ASCII CHARACTERS OF 45 AND 46 RESPECTIVELY 

2 REM X,Y,Z = LOOP DUMMY VARIABLES 

3 REM 

4 REM 

10 A*=CHR*(45) 

20 B*=CHR*(46) 

30 PRINT B*; 

40 FOR X=l TO 8 

50 PRINT A*; 

60 NEXT X 

70 PRINT B* 

SO FOR Y=l TO 3 

90 PRINT B*; 

100 PRINT TAB (9) 5 B* 

110 NEXT Y 

120 PRINT B*; 

130 FOR Z=l TO 8 

140 PRINT A*; 

150 NEXT Z 

160 PRINT B* 

170 END 



1 1 


=^EM L 


= LENGTH 


OF THE STRING 


2 1 


REM F 


= ASC OF 


THE 


FIRST CHARACTER 


3 1 


REM T 


= ASC OF 


THE 


LAST CHARACTER 


4 1 


REM 








5 1 


REM 








10 


INPUT ' 


'YOUR STRING? 


";A* 


20 


L=LEN(A*) 






30 


F=ASC(A*) 






40 


T=ASC(RIGHT*(A*, 


,1)) 




50 


PRINT ' 


'IT HAS "; 


iL;" 


CHARACTERS" 


60 


PRINT ' 


'IT STARTS WITH ASCII NUMBER " 


70 


PRINT ' 


•IT ENDS WITH 


ASCII NUMBER "5T 


80 


END 









8.1 



10 A*="259a" 

20 PRINT VAL(LEFT*(A*,2>)+VALCRI6HT*(A*,2)) 



30 


END 




. Dec: 


imal 


Binary 


89 




1011001 


74 




1001010 


80 




1010000 


107 




1101011 


255 




11111111 


129 




10000001 


28 




11100 


39 




loom 


29 




11101 


24 




11000 


43 




101011 



12. 1 REM A* = A 10 CHARACTER STRINB OF RANDOM DIGITS 

2 REM Nl = VALUE OF THE FIRST THREE DIBITS 

3 REM N2 = VALUE OF THE LAST THREE DIBITS 

4 REM 

5 REM 

10 INPUT "ENTER THE DIBITS 0--9 IN RANDOM ORDER: " ; A* 

20 IF LEN(A*)<>10 THEN 10 

30 N1=VAL(LEFT*(A*,3) ) 

40 N2=VAL < R I GHT* < A* , 3 ) ) 

50 PR I NT " THE SUM OF " ; N 1 ; " AND " ; N2 ; " I S " ; N 1 +N2 

60 END 



14 



1 REM N* = THE ORIGINAL NAME ENTERED 

2 REM B* = A STRING TO BUILD THE NAME BACKWARDS 

3 REM P-/. = POSITION IN THE ORIGINAL NAME 

4 REM 

5 REM 

9 CLEAR 100 

10 INPUT "WHAT IS THE NAME";N* 
20 FOR P7.=LEN(N*) TO 1 STEP -1 
30 B*=B«+M I D* ( N* , P7. , 1 ) 

40 NEXT PY. 

50 PRINT "-"5N*;"' BACKWARDS IS '";B*;"'" 

60 END 



8.2 



16 



READY 

>RUN 

FOXY 

SAYS 

HELP 

WILL 

COME 

SOON 

READY 



1 REM 

2 REM 

3 REM 

4 REM 
10 FOR 
20 

30 

40 

50 

60 

70 NEXT 

SO END 



L% = LENGTH OF A WORD 

W7. = A STRING TO BUILD A WORD A CHARACTER AT A TIME 



X7.= l TO 20 

W*="" 

FOR L7.= l TO RND(47.)+17. 

W*=W*+CHR$ <RND <267.) +647.) 
NEXT L7. 
PRINT W*; " "; 
X7. 



20 



1 
•-? 

4 

10 
20 
30 
40 
50 
60 
70 
SO 



W* = SECRET WORD 
G* = WORD GUESSED 
A*,B* = LETTERS IN 



WORDS W AND G RESPECTIVELY 



REM 
REM 
REM 
REM 
REM 
W*=" HANGMAN" 

INPUT "GUESS A WORD"; G$ 
IF G*=W* THEN PRINT "YOU GUESSED IT" 
FOR I7.= l TO LEN(G*) 
B*=MID*(G*, 17., 1) 
FOR J7.= l TO LEN(W*) 

A*=MID*(W*, J7., 1) 

IF B*=A* THEN PRINT B$; " IS IN THE WORD": GOTO 100 



GOTO 120 



90 NEXT J 7. 
100 NEXT 17. 
110 GOTO 20 
120 END 



22. Since the computer works with base two, it expresses any power 
of two, or sum of powers of two exactly. However, a number 
such as 1/3 cannot be represented as a sum of powers of two. 
In addition, the fraction 1/3 does not have an exact decimal 
representation. In the case of 1/2, the computer can represent 
the fraction more accurately. 



8.3 



24. 



26, 



1 REM T* = A WORD FROM THE SENTENCE 

2 REM W*<) = STORES EACH WORD (UP TO 30) 

3 REM S* = THE ORIBINAL SENTENCE 

4 REM 

5 REM 

10 CLEAR 250 

20 DIM W*(30) 

30 INPUT "YOUR SENTENCE "pS* 

40 S*=CHR$ ( 32 > +S*+CHR* C 32 > 

50 FOR X7.= l TO LEN(S*) 

60 T*=MID*(S*,X"/., 1) 

70 IF ASC(T$)=32 THEN C*/.=C7.+ 1 s BOTO 90 

80 W* ( C% ) =W* ( C7. ) +T* 

90 NEXT X% 

100 FOR L"/.=30 TO 1 STEP -1 

110 IF W*<Ly.)<>"" THEN PRINT W*(L"/.)?" "; 

120 NEXT L% 

130 END 



1 REM A = HEIGHT 

2 REM B = DISTANCE TO INDENT THE BOTTOM 

3 REM C = WHERE BOTTOM EDGE ENDS 

4 REM 

5 REM 

10 CLEAR 200 

20 S*=" TRIANGLE" 

30 INPUT "A,B,AND C"5A,B,C 

40 S$=S*+S* 

50 I F LEN ( S* ) < ( C+LEN ( " TR I ANGLE " ) ) THEN 40 

60 FOR Hy.= l TO A 

70 P17.= (B/A)*H% 

80 P2y.= (C/A)«H7. 

90 IF P17.<1 THEN P17.=P17.+ 1 

100 PRINT TAB(P17.) ; MID* (S*, P17., ABS (P27.-P17.) ) 

110 NEXT H7. 

120 END 



8.4 



CHAPTER 9 

2A. 10 FOR X = 1 TO 5 

20 INPUT "DESSERT ";N*(X) 

30 INPUT "PRICE"; PCX) 

40 NEXT X 

50 REM 

100 REM NOW PRINT TO THE FILE 

110 OPEN "0", 1, "NAPRI: 1" 

120 FOR I = 1 TO 5 

130 PRINT #1,N$(I) ;", ";P(I) 

140 NEXT I 

150 CLOSE 1 

2B. 10 FOR X - 1 TO 2 

20 INPUT "DESSERT ";N*(X) 

30 INPUT "PRICE"; PCX) 

40 NEXT X 

50 REM 

100 REM NOW PRINT TO THE FILE 

110 OPEN "E", 1, "NAPRI: 1" 

120 FOR I = 1 TO 2 

130 PRINT #1,N*<I) ; ", ";P(I) 

140 NEXT I 

1 50 CLOSE 1 

2C. 10 OPEN "I", 1, "NAPRI: 1" 
20 IF EOF(l') THEN 60 
30 INPUT #1,N*,P 
40 PRINT N*,P 
50 GOTO 20 
60 CLOSE 1 



4A. 1 REM N* ^-^ ARRAY TO HOLD THE TEN NAMES 
10 REM SET THE NAMES 
20 FOR X - 1 TO 10 
30 INPUT "NAME ";N*(X) 
40 NEXT X 
50 REM 

100 REM NOW PRINT THEM TO THE FILE TNM 
110 OPEN "0", 1, "TNM: 1" 
120 FOR I = 1 TO 10 
130 PRINT #1,N$(I) 
140 NEXT I 
150 CLOSE 1 



4B, 



1 REM X - A FLA6 TO SEE IF A NAME WAS FOUND 

2 REM N* = THE NAME FOUND IN THE FILE TNM 

10 X = -1 : REM WILL BE SET > IF A NAME IS FOUND IN RANGE 

20 OPEN "I", 1, "TNM: 1" 

30 FOR I = 1 TO 10 

40 INPUT #1,N* 

50 IF N$ > "C" AND N* < "I" THEN PRINT N* : X = X + 2 

60 NEXT I 

70 CLOSE 1 

80 IF X < O THEN PRINT "NONE FOUND" 9.1 



6A' 



1 REH N* = NAME 

2 REM R = HOURLY PAY RATE 

3 REM D = NUMBER OF DEPENDENTS 

4 REM M = MEDICAL INSURANCE DEDUCTION 

5 REM L = LIFE INSURANCE DEDUCTION 
10 OPEN "0", 1, "PAY: 1" 

20 FOR X = 1 TO 10 

30 READ N«,R,D,M,L 

40 PRINT #1,N«; ", ";R; ", "5Ds ", ";M; ", "! 

50 NEXT X 

60 CLOSE 1 

70 REM 

100 DATA ISLAND B ILL I BAN, -4. 50, 0, 2, 1 

110 DATA WILSON MISTER, 4. 95, 2, 5, 3 

120 DATA MENACE DENNIS, 1 , 0, 2, 1 

130 DATA BEAVER LEAVEITTO, 2. 25, 0, 1 , 1 

140 DATA HOB AN COLONEL, 40, 2, 3, 3 

150 DATA SCHULTZ SEARBENT, 30, 1 , 1 , 2 

160 DATA H;;IRK JIM, 78. 50, 1 , 1 , 1 

170 DATA BUNNY BUGS, 12. 45, 2, 5, 3 

180 DATA SERLINB ROD, 55. 90, 2, 2, 1 

190 DATA TAR Z AN ME, 9. 25, 3, 0, 



6B, 1 REM N* = NAME 

2 REM R = HOURLY PAY RATE 

3 REM D = NUMBER OF 

4 REM M = MEDICAL INSYRANCE DEDUCTION 

5 REM L = LIFE INSURANCE DEDUCTION 

10 DEF FNR(X) == INT (100 * X + .5) /1 00 : REM ROUND TO lOOTH 

20 OPEN "I'M, "PAYS 1" 

30 FOR X - 1 TO 10 

40 INPUT #1,N*,R,D,M,L 

50 READ H : REM BET HOURS WORKED 

60 G = H * R : T = (25 - 2*D) * B / 100 

70 IF T < THEN T = 

80 P = e - T ~ M - L 

90 PRINT N* : FOR L = 1 TO LEN(N*) s PRINT"-"; : NEXT L : PRINT 

91 PRINT "BROSS PAY: "; TAB (40) ; FNR (G) : PRINT "TAX:"; 

92 PRINT TAB (40) ; FNR (T) : PRINT "MEDICAL INSURANCE: "; TAB (40) ; 

93 PRINT FNR (M) SPRINT "LIFE INSURANCE: "; TAB (40) ; FNR (L) 
100 PRINT "NET: ";TAB(40) ;FNR(P) 

105 PRINT 

110 NEXT X 

120 CLOSE 1 

130 REM 

200 DATA 40,37.1,51,40,39.2,18.6,59.8,45.3,60.3,41 



9.2 



8a. 10 OPEN "0", 1, "SEATS: 1" 

20 FOR X = i TO 20 
30 PRINT #1, " ,0" 

40 NEXT X 

50 CLOSE 1 



10 DIM N*(20) ,P(20) 

20 OPEN "O", 1, "SEATS: 1" 

30 FOR X = 1 TO 20 

40 READ N*(X) 

50 NEXT X 

60 REM 

100 REM NOW PRINT THE STUDENTS RANDOMLY 

110 FOR I = 1 TO 20 

120 S = RND(20) 

130 IF P<S) = 1 THEN 120 

140 PCS) = 1 

150 PRINT #1,N*(S) -,","; I 

160 NEXT I 

170 CLOSE 1 

200 DATA SPANKY , BUCKWHEAT , ALFALFA , PETEY , BUTCH , DARLA 

210 DATA LAUREL, HARDY, LARRY, CURLY, MOE, ABBOTT, COSTELLO 

220 DATA FRED , W I LMA , BARNEY , BETTY , PEBBLES , BAM-B AM , D I NO 



8C. 1 REM SN = SEAT NUMBER 
2 REM N* = NAME 
10 OPEN "I", 1, "SEATS: 1" 
PRINT "NAME", "SEAT" 



15 
20 
30 
40 
50 
60 



FOR I = 

INPUT 

PRINT 

NEXT I 

CLOSE 1 



1 TO 20 

«1,N*,SN 

N*,SN 



9.3 



CHAPTER 10 



2A. 1 REM T$,T1* = TITLE (30 CHARACTERS) 



1 1 


REM T$,- 


ri* = TITLE (30 


2 1 


REM T = 


BOOK NUMBER 


3 1 


REM 




4 1 


REM 




10 


CLEAR 75 




20 


OPEN "R". 


, 1, "BOOKS/TXT: 1 


30 


FIELD 1, 


30 AS T* 


40 


FOR T = : 


I TO 10 


50 


INPUT 


"TITLE"; Tl* : 1 


60 


PUT 1 




70 


NEXT T 




80 


CLOSE 1 





LSET T* = Tl* 



2B. 1 REM T*,T1* = TITLE <30 CHARACTERS) 

2 REM T = BOOK NUMBER 

3 REM 

4 REM 

10 CLEAR 75 

20 OPEN "R" , 1 , "BOOKS/TXTs 1 " , 30 

30 FIELD 1, 30 AS T* 

40 OPEN "0",2, "NZTITLES/TXTs 1" 

50 FOR T = 1 TO 10 

60 GET 1 

70 IF T* > = "N" THEN PRINT #2, T* 

80 NEXT T 

90 CLOSE 1,2 



4A. 1 REM N*,N1* = NAME (20 CHARACTERS) 

2 REM B,B* = BALANCE (4 CHARACTERS) 

3 REM A = ACCOUNT NUMBER 
1 CLEAR 1 00 

20 OPEN "R", 1, "ACCOUNTS/TXTs 1",24 

30 FIELD 1, 20 AS N*, 4 AS B* 

40 FOR A =-- 1 TO 25 

50 PRINT "THIS WILL BE ACCOUNT #"5A 

60 INPUT "NAME"5N1* : LSET N* = Nl* 

70 INPUT "STARTING BALANCE" ;B s LSET B* = MKS*(B) 

80 PUT 1 

90 PRINT 

100 NEXT A 

110 CLOSE 1 



10.1 



4B. 



1 REM 


N* = NAME (20 CHARACTERS) 


2 REM 


B* = BALANCE (4 CHARACTERS) 


3 REM 


Al = ACCOUNT NUMBER 


4 REM 


T$ = TRANSACTION FLAB 


5 REM 


A2 = AMOUNT 


6 REM 




7 REM 




10 


OPEN "R", 1, "ACCOUNTS/TXT: 1 " , 24 


20 


FIELD 1, 20 AS N$, 4 AS B* 


30 


PRINT "ENTER A NEGATIVE NUMBER TO STOP" 


40 


INPUT "ACCOUNT #"|A1 


50 




IF Al < THEN 140 


60 




IF A > LOF(l) THEN PRINT "INVALID ACCOUNT #" 


70 




INPUT "DEPOSIT (D) OR WITHDRAWAL (W)";T* 


80 




INPUT " AMOUNT "||A2 


90 




BET 1, Al 


1 00 




IF T* = "W" THEN LSET B* = MKS*(CVS(B*) - A2) 
ELSE LSET B* = MKS*(CVS<B*) + A2) 


110 




PUT 1, Al 


120 




PRINT "TRANSACTION RECORDED" 


130 


BOTO 40 


140 


CLOSE 1 



BOTO 40 



4C. 1 REM N* = NAME (20 CHARACTERS) 

2 REM B* = BALANCE (4 CHARACTERS) 

3 REM A = ACCOUNT NUMBER 

4 REM 

5 REM 

10 OPEN "R", 1, "ACCOUNTS/TXTs 1",24 

20 FIELD 1, 20 AS N«, 4 AS B* 

30 FOR A = 1 TO 25 

40 BET 1 

50 IF CVS(B*) > THEN 140 

60 PRINT 

70 PRINT "DEAR " ; N* 

80 PRINT " IT HAS COME TO OUR ATTENTION THAT YOUR" 

90 PRINT "ACCOUNT IS OVERDRAWN BY *" 5 -CVS (B*) ; " . PLEASE" 

100 PRINT "MAKE A DEPOSIT FOR THAT AMOUNT IMMEDIATELY." 

110 PRINT : PRINT TAB (40) ; "THANK YOU" 

120 PRINT TAB(40);"THE BANK" 

130 BOTO 210 

140 IF CVS(B*) < 500 THEN 210 

150 PRINT 

160 PRINT "DEAR " ? N* 

170 PRINT " YOU HAVE AN EXCEPTIONALLY LARBE ACCOUNT." 

180 PRINT "YOU WILL BE RECEIVINB A TOASTER IN THE MAIL AS" 

190 PRINT "AN AWARD. " 

200 PRINT : PRINT TAB (40); "THE BANK" 

210 NEXT A 



10.2 



6A. 



1 



3 

4 

5 

6 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 



N*,N1* = NAME (20 CHARACTERS) 
F«,F1« = FRATERNITY (20 CHARACTERS) 
A,A* = ABE (2 CHARACTERS) 
S = STUDENT NUMBER 



REM 
REM 
REM 
REM 
REM 
REM 

CLEAR 100 

OPEN "R", 1, "FRAT/TXT."1%42 
FIELD 1, 20 AS N*, 20 AS Ft, 
FOR S = 1 TO 30 

INPUT "NAME"|N1* : LSET N* = Nl* 
"FRATERNITY" ;F1* : LSET F* 
"AGE"; A : LSET A* = MKI*(A) 



2 AS A* 



INPUT 
INPUT 
PUT 1 
PRINT 
NEXT S 
CLOSE 1 



Flf 



N* = NAME (20 CHARACTERS) 

F* = FRATERNITY (20 CHARACTERS) 

A* = ABE (2 CHARACTERS) 

S = STUDENT NUMBER 



6B. 1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

10 CLEAR 100 

20 OPEN "R", 1, "FRAT/TXT: 1",42 
30 FIELD 1, 20 AS N$, 20 AS F*, 
40 OPEN "0", 2, "SIGMA/TXT: 1" 

50 FOR S = i TO 30 

60 BET 1 

70 IF LEFT* (F*, 9) = "SISMA CHI 

80 NEXT S 

90 CLOSE 1,2 



2 AS A* 



THEN PRINT #2, N*, CVI (A*) 



10.3 



6C. 1 REH N* = NAME (20 CHARACTERS! 

2 REH Ft = FRATERNITY C20 CHARACTERS) 

3 REM A* = ABE (2 CHARACTERS) 

4 REM SI = STUDENT NUMBER 

5 REM R,S = ROW, SEAT 

6 REM R(14> = PREVIOUSLY PICKED STUDENT NUMBERS 

7 REM C*(3,5) = CLfiSSROOM SEATING CHART 
B REM 

9 REM 

10 CLEAR 750 

20 OPEN "R'% 1, "FRAT/TXTs 1",42 

30 FIELD 1, 20 AS N*, 20 AS Ft, 2 AS A« 

40 DIM RC14) , C«C3,5) 

50 FOR R == 1 TO 3 

60 FOR S = 1 TO 5 

70 SI = RNDC3C1) 

80 FOR P = 1 TO (R-l)*5 + S-1 

90 IF SI = RCP) THEN 70 

100 NEXT P 

110 R( <R-1)*3+S) = SI 

120 GET 1, SI 

130 CUCRjS) = N* 

140 NEXT S 

150 NEXT R 

160 CLOSE 1 

170 FOR R = 1 TO 3 

180 PRINT "ROW'pR? "5 ",C*(R, 1) ,C*(R,2) 

190 PRINT C*(R,3) ,C*CR,4) ,C*(R,5) 

200 PRINT 

210 NEXT R 



8A. 1 REM N*,N1* = NAHE (20 CHARACTERS) 

2 REM SS*,S2* = SOCIAL SECURITY NUMBER (11 CHARACTERS) 

3 REM A*,A1* = STREET ADDRESS (25 CHARACTERS) 

4 REM C*,Ci« = CITY (15 CHARACTERS) 

5 REM S*,S1» = STATE (2 CHARACTERS) 

6 REM Z*,Z1* = ZIP CODE (5 CHARACTERS) 

7 REM B,B* = BALANCE (4 CHARACTERS) 

8 REM A = ACCOUNT NUMBER 

9 REM 

10 REM 

20 CLEAR 500 

30 OPEN "R", 1, "SAVINBS/TXTs 1",82 

40 FIELD 1, 20 AS N«, 11 AS SS*, 25 AS A*, 15 AS C*, 2 AS S*, 

5 AS Z*, 4 AS B$ 
50 FOR A = 1 TO 10 

60 PRINT "THIS WILL BE ACCOUNT #"§A 
70 INPUT "NAME"|Nl$ : LSET N* = Nl« 

80 INPUT "SOCIAL SECURITY NUMBER" ;S2* : LSET SS* = S2* 
90 INPUT "STREET ADDRESS"; A 1* : LSET A$ = Al* 
100 INPUT "CITY"?Ci* s LSET C* = CI* 
110 INPUT -'STATE"! SI* '■ LSET S* = SI* 
120 INPUT "ZI"^' CODE"pZi* : LSET Z* = Zl* 
130 INPUT "BALANCE" pB ; LSET B* = MKS*<B) 
140 PUT 1 
150 PRINT 
160 NEXT A 
170 CLOSE 1 



10.4 



8B. 1 REM N*,N1* = NAHE C20 CHARACTERS) 

2 REM SS*,S2* = SOCIAL SECURITY NUMBER ill CHARACTERS) 

3 REM A*,A1* = STREET ADDRESS (25 CHARACTERS) 

4 REM C*,C1* = CITY (15 CHARACTERS) 

5 REM S*,S1* = STATE (2 CHARACTERS) 

6 REH Z$,Z1* = ZIP CODE (5 CHARACTERS) 

7 REM B,B« = BALANCE (4 CHARACTERS) 

8 REM A = ACCOUNT NUMBER 

9 REM = OPTION 

10 REM 

11 REM 

20 CLEAR 500 

30 OPEN "R", 1, "SAVINSS/TXTs 1",82 

40 FIELD 1, 20 AS N*, 11 AS SS*, 25 AS A*, 15 AS C*, 2 AS S*, 

5 AS Z*, 4 AS B* 
50 INPUT "DEPOSITOR'S ACCOUNT NUMBER"; A 
60 GET 1, A 
70 PRINT "NAME! " ? N« 
80 PRINT , "(1) CHANGE NAME" 

90 PRINT , " (2) CHANGE SOCIAL SECURITY NUMBER" 
100 PRINT , "(3) CHANGE ADDRESS" 
110 PRINT , "(4) CHANGE BALANCE" 
120 PRINT . 
130 INPUT "OPTION"; 
140 ON O GOTO 200,300,400,500 
150 REM 
160 REM 

200 REM CHANGE NAME 

210 INPUT "NEW NAME"pNl* s LSET N* = Nl* 
220 GOTO 600 
230 REM 
240 REM 

300 REM CHANGE SOCIAL SECURITY NUMBER 
310 PRINT "OLD SOCIAL SECURITY NUMBER: " ; SS* 

320 INPUT "NEW SOCIAL SECURITY NUMBER" ;S2* s LSET SS* = S2* 
330 GOTO 600 
340 REM 
350 REM 

400 REM CHANGE ADDRESS 
410 PRINT "OLD ADDRESS s " 

420 PRINT A* : PRINT C* s PRINT Sl$ s PRINT Z« 
430 INPUT "NEW STREET ADDRESS" ;A1* : LSET A* = Al$ 
440 INPUT "NEW CITY"; CI* s LSET C* = CI* 
450 INPUT "NEW STATE" p SI* : LSET S* = SI* 
460 INPUT "NEW ZIP C0DE";Z1* ; LSET Z* = Zl* 
470 GOTO 600 
480 REM 
490 REM 

500 REM CHANGE BALANCE 
510 PRINT "OLD BALANCE; "; CVS <B*) 
520 INPUT "NEW BALANCE" 5 B : LSET B* = MKS*(B) 
530 REM 
540 REM 

600 REM PLACE NEW INFORMATION IN FILE 
610 PUT 1, A 
620 CLOSE 1 

10.5 



8C. 



1 REM 


N* = NAME <20 CHARACTERS) 


2 REM 


SS« = SOCIAL SECURITY NUMBER (11 CHARACTERS) 


3 REM 


A* = STREET ADDRESS (25 CHARACTERS) 


4 REM 


C* = CITY (15 CHARACTERS) 


5 REM 


S* = STATE (2 CHARACTERS) 


6 REM 


Z* = ZIP CODE (5 CHARACTERS) 


7 REM 


B* = BALANCE (4 CHARACTERS) 


8 REM 


A = ACCOUNT NUMBER 


9 REM 




10 REM 




20 CLEAR 500 


30 OPEN "R" , 1 , "SAVINBS/TXT: I " , 82 


40 FIELD 1, 20 AS N*, H AS SS*, 25 AS A$, 15 AS C*, 




5 AS Z*. 4 AS B* 


50 FOR A = 1 TO 10 


60 


GET 1, A 


70 


LSET B* = MKSt(INT(100*(1.005*CVS(B$) )+.5)/100) 


80 


PUT 1, A 


90 NEXT A 


100 CLOSE 1 



2 AS S*5 



10.6 



